      integer nmax,imaskdim,ncg
!      parameter (nmax=125000000,imaskdim=60,ncg=2)   ! imaskdim has to
      parameter (nmax=2200000000,imaskdim=60,ncg=2)   ! imaskdim has to
																	  ! be known in advance
      real*8 x(3,nmax)
      real ms(nmax)
      integer ilist(nmax)
      integer*4 imask(imaskdim,imaskdim,imaskdim)
      common /xab/ x,ms,ilist
      common /shape/ imask
 
